## Warning: Removed 54 rows containing missing values (geom_point).
## Warning: Transformation introduced infinite values in discrete y-axis
##
## Attaching package: 'plotly'
## The following object is masked from 'package:ggplot2':
##
## last_plot
## The following object is masked from 'package:stats':
##
## filter
## The following object is masked from 'package:graphics':
##
## layout
## Warning: `group_by_()` is deprecated as of dplyr 0.7.0.
## Please use `group_by()` instead.
## See vignette('programming') for more help
## This warning is displayed once every 8 hours.
## Call `lifecycle::last_warnings()` to see where this warning was generated.
mybreaks <- c(1, 100, 1000, 10000, 10000)
ggplot(daily_report, aes(x = Long, y = Lat, size = Confirmed)) +
borders("state", colour = "white", fill = "grey90") +
geom_point(aes(x=Long, y=Lat, size=Confirmed, color=Confirmed),stroke=F, alpha=0.7) +
scale_size_continuous(name="Cases", trans="log", range=c(1,7),
breaks=mybreaks, labels = c("1-99",
"100-999", "1,000-9,999", "10,000-99,999", "50,000+")) +
scale_color_viridis_c(option="viridis",name="Cases", trans= "log", breaks=mybreaks, labels = c("1-99",
"100-999", "1,000-9,999", "10,000-99,999", "50,000+")) +
# Cleaning up the graph
theme_void() +
guides( colour = guide_legend()) +
labs(title = "Anisa Dhana's lagout for COVID-19 Confirmed Cases in the US'") +
theme(
legend.position = "bottom",
text = element_text(color = "#22211d"),
plot.background = element_rect(fill = "#ffffff", color = NA),
panel.background = element_rect(fill = "#ffffff", color = NA),
legend.background = element_rect(fill = "#ffffff", color = NA)
) +
coord_fixed(ratio=1.5)
## Warning: Transformation introduced infinite values in discrete y-axis
## Warning: Transformation introduced infinite values in discrete y-axis
## Warning in sqrt(x): NaNs produced
## Warning: Removed 6 rows containing missing values (geom_point).
title: “Evolutionary Genomics & Bioinformatics” author: “Jeffrey Blanchard” date: “2/26/2020” output: html_document bibliography: data/references.bib
Application written in R [@RCoreTeam] using the Shiny framework [@Chang2015].
title: “Draw Geographical Maps” author: “Eric Anderson” date: “4/03/2018” output: pdf_document bibliography: https://cran.r-project.org/web/packages/maps/maps.pdf
##3 title: “An interactive web-based dashboard to track COVID-19 in real time” author: “Ensheng Dong, Hongru Du, Lauren Gardner” date: “2/19/2020” output: html_document bibliography: https://www.sciencedirect.com/science/article/pii/S1473309920301201?via%3Dihub